home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / MIDI / Euterpe_Installation / Installation / install < prev    next >
Text File  |  1998-06-24  |  3KB  |  145 lines
  1. (complete 0)
  2.  
  3. (set default_lang 4)
  4. (set #introduction
  5. (cat "\n\nInstallation of Euterpe.\n"
  6. ))
  7.  
  8. (set #bravi
  9. (cat "Installation is not possible."
  10. ))
  11.  
  12. (set #quel-disque
  13. (cat "Where do you want to install Euterpe\n(A directory will be created) ?"
  14. ))
  15.  
  16. (set #quel-disque-aide
  17. (cat "Select the drawer or volume where the installation should be made."
  18. ))
  19. (set #oui-prompt
  20. (cat "Installation of OBJECT USER INTERFACE catalog files."
  21. ))
  22. (set #oui-prompt
  23. (cat "Installation of AsyncIO.library."
  24. ))
  25.  
  26. (set #startup-prompt
  27. (cat "Adding Assign Euterpe: in user-startup."
  28. ))
  29.  
  30. (set #fix-error-asyncio
  31. (cat "Fixing previous incorrect installation of AsyncIO.library."
  32. ))
  33.  
  34.  
  35. (if (= @language "français")
  36. (
  37. (set default_lang 16)
  38. (set #introduction
  39. (cat "\n\nInstallation d'Euterpe.\n"
  40. ))
  41.  
  42. (set #bravi
  43. (cat "L'installation a échoué."
  44. ))
  45.  
  46. (set #quel-disque
  47. (cat "Où voulez-vous installer Euterpe\n(Un répertoire sera créé) ?"
  48. ))
  49.  
  50. (set #quel-disque-aide
  51. (cat "Sélectionnez le disque ou répertoire où l'installation doit être effectuée."
  52. ))
  53.  
  54. (set #oui-prompt
  55. (cat "Installation des catalogues pour l'interface OUI."
  56. ))
  57.  
  58. (set #asyncio-prompt
  59. (cat "Installation de l'AsyncIO.library."
  60. ))
  61.  
  62. (set #startup-prompt
  63. (cat "Ajout de l'assignation Euterpe: dans le fichier user-startup."
  64. ))
  65.  
  66. (set #fix-error-asyncio
  67. (cat "Correction d'une installation précédente erronée de l'AsyncIO.library."
  68. ))
  69.  
  70.  
  71. ))
  72.  
  73. ;---------------------------------------------------------------------
  74. (set installLoc (pathonly (pathonly @icon))
  75.      installEuterpe (tackon installLoc "Euterpe")
  76.      installCats (tackon installEuterpe "Catalogs")
  77.      installFonts (tackon installLoc "Fonts")
  78.      installLibs (tackon installLoc "Libs/AsyncIO.library")
  79.      installOuiCat (tackon (tackon (tackon installLoc "OUI_Catalogs") @language) "oui.catalog")
  80.      targetOuiCat (tackon "LOCALE:Catalogs" @language)
  81.      targetFonts "FONTS:"
  82.      targetLibs "LIBS:"
  83. )
  84.  
  85. (delopts "oknodelete" "force" "askuser")
  86. (user 2)
  87. (message #introduction)
  88. (user 0)
  89. (welcome)
  90. (set old_level @user-level)
  91.     (user 2)
  92.     (set target (tackon (askdir (prompt #quel-disque)
  93.                         (help #quel-disque-aide)
  94.                         (default "SYS:")
  95.                         (disk)
  96.                 ) "Euterpe")
  97.     )
  98.     (makedir target
  99.              (infos))
  100.  
  101.     (user old_level)
  102. (set @default-dest target)
  103. (complete 10)
  104.  
  105. (set targetCats (tackon target "Catalogs"))
  106.  
  107. (copyfiles (source installEuterpe)
  108.            (dest target)
  109.            (all)
  110. )
  111. (complete 70)
  112. (copyfiles (source installFonts)
  113.            (dest targetFonts)
  114.            (all)
  115. )
  116. (complete 75)
  117. (if (exists "libs:asyncio.library/asyncio.library")
  118.     (
  119.       (message #fix-error-asyncio)
  120.       (rename "libs:asyncio.library" "libs:asynciodir" (safe))
  121.       (rename "libs:asynciodir/AsyncIO.library" "libs:AsyncIO.library" (safe))
  122.       (delete "libs:asynciodir" (optional (safe)))
  123.     )
  124. )
  125.  
  126. (copylib (prompt #asyncio-prompt)
  127.          (source installLibs)
  128.          (dest targetLibs)
  129.          (confirm)
  130.          (help @copylib-help)
  131. ;)
  132. (copylib (prompt #oui-prompt)
  133.          (source installOuiCat)
  134.          (dest targetOuiCat)
  135.          (confirm)
  136.          (optional nofail askuser)
  137.          (help @copylib-help)
  138. )
  139.  
  140. (startup "Euterpe" (prompt #startup-prompt)
  141.          (help @startup-help)
  142.          (command (cat "Assign Euterpe: " target))
  143. )
  144. (complete 100)
  145.